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LLL II] BER BBB RRR RRR TTT LLL Ll 
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LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


**F I LE**]D**L IBMATCH 


LLLLLLLLLL 
LLLLLLLLLL 


LLLLLLLLLL 
LLLLLLLLLL 


et te 
te 
a 
ee 


Pa 8 bm Ps nt ae se bs ot se be Be 


ta ee 
Lomein 
Pee be a 
bs be 
sa ee 


Ot be 
bent Be 


Oe be at ad bt a at Be Bs Pa me as bt be 


ene bos en Gs Ge Pe Ba ns Ga be Ba Ge sy 
ea he 


a bee 


es 
me 


AAAAAA 
AAAAAA 
AA A 
Aa AA 
Aa Aa 
Aa AA 
BA AA 
AA AA 
AAAAAAAAAA 
AAAAAAAAAA 
AA Ba 
AA aR 
AB AA 
aA ah 


ttt st 4 HH a SH St Ht 

tt Ht St St Se SH Ht 
NOAMAQAAANAANO 
ANAOAAAAAOAO 


LIBSMATCH_COND Library Match Condition Value List -11 Bliss-32 V4.0-74 


45 
9:11 CTaRTL” SRC LigMATCH.03951 (1 
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MODULE Lime cn, a Val 


I 
LINKAGE (FORTRANS | 


———— 


List’ 
th LIBSMATCHC.MAR) 


BEGIN 


' 
LR RRR E REA RE ER RE REE R EERE ARERR AE AREER EERE A ERATE EKER 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


'® ae SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE oor reset NOTICE. THIS SOFTWARE OR ANY OTHER 
i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
e 
& 
* 
® 
* 
a 
® 
® 
is TRANSFERRED. . 
ae 
® 
® 
® 
& 
® 
® 
* 
® 
® 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. 

IT 


!® DIGITAL ASSUMES NO yyy: FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SRR RARER REAR RERERRA REE AEE EE ERAAEEEEEEE REE ARAEEEEAAEEEAAARAAAAEERAAERE EE 
' 


+ 
+ 


| 

FACILITY: General Utility Library 

ABSTRACT: 

Check for a match between the condition value addressed by the 

first parameter and the condition value addressed by the subsequent 
| 
| 
| 


peremesers. Each parameter is the address of a condition value. 
nly the pertinent fields are shocked within the condition value. 


ENVIRONMENT: User Mode - AST re-entrant 
AUTHOR: Donald G. Petersen, CREATION DATE: 30-Nov-1977 
MODIFIED BY: 

Bonaid 6. Petersen, 30-Nov-1977: VERSION 0 


-1 origina 

o-¢ RETURN I - 1 DGP rs 
add . (dot) operator to COND_VAL 0gr 05-DEC-77 

Change to STA LET Library. 6GP 20=hpr 8 

Change REQUIRE files for VAX system build. DGP 28-Apr-78 

Change STARLET to RTLSTARLE to av ié conflicts. DGP 11-May-78 

Add check for rec th tee spe ecific TNH 17-June-78 

Change file name to LIBMATCHC.B32, yo q change. the name 

of the REQUIRE file similarly. JBS 14-NOV= 


NOU WR @O ODN UNE WN 0 OD NAME WN (OO DNAUE WR OO ONOUES WN" OOONOUSWh— 


Be Oe Oe Be Be Be Se Se Se Be Be Be Oe Be Se Be Oe Se Se Se Be Se Be Se Be Se Be ws Se Be Oe Oe Be Be Oe Se Ss Se Os Oe Be Se Oe Oe Se Be Se Ge Ge Fe Se Ge Ge Ge ee Ge ee 


ee er ne eee Ee SS 


PUPP Bs BS BB BB EE BE FANN AINA PPO NOPONINONONDS 2 Ss SS SS 
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! 0-011 - Change the file name to LIBMATCH.B32 to avoid conflict with 
; Lis ATCHC. a (match characters) when producing object 
' files. JBS 15-NOV-78 


blegrse V4 0-738 
SRCJLIBMATCH.B32;1 


! 1-001 = Change the version number fe, 1 a. 2¥ date 

: the cop pyr dant notice. JBS 1 

! 1-002 = Declare ACTUALCOUNT, RCTUAPPARAMETER and NULLPARAMETER 
: for the new BLISS soe iler. JBS 22-NOV-78 

} 1-003 = Use prologue file. 24-June-19 
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; «68 067 1! 
: ; $3 ! PROLOGUE FILE: 

i Be 

: g a7) : REQUIRE 'RTLIN:LIBPROLOG'; ! LIBS definitions 
>; £4 128 7 | 

; 75 144 1 ! TABLE OF CONTENTS: 

‘pa: 0145 1! 

: 7 3 1e8 1 

; 78 14 1 FORWARD ROUTINE 

; es 198 : LIBSMATCH_COND; ! The routine which performs the comparisons. 
;.6 CB 0150 1! 

; 8 0151 1 ! MACROS: 

i & 8136 1! 

; 84 01535 1! NONE 

3 «6 01546 1! 

; 86 0155 1 ! EQUATED SYMBOLS: 

;.6 «687 0156 1! 

; «688 0157 1! NONE 

; 0158 1! 

: 90 0159 1 ! OWN STORAGE: 

; 0160 1! 

; 0161 1! NONE 

s 9 B16¢ 1! 

: 94 0165 1 ! EXTERNAL REFERENCES: 

; 95 0164 1! 

: 96 0165 1! NONE 
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14-Sep-1984 2:39:11 LIBRTL.SRCJLIBMATCH.B32;1 


GLOBAL ROUTINE LIBSMATCH_COND ( ! Routine which compares condition values 
COND_VAL, ! Adr. of desired condition value 
COND VALI) ! Adr. of condition value tc compare 


+ 
FUNCTIONAL DESCRIPTION: 


ers. 
SP) is set, the facility 
-NO), the facility specific bit _, and the message 
code (STS$V_CODE) “are included in the compare (STS$V COND_ID). 
Otherwise, Only the faci ity specific bit and the code aré included (STS$V_MSG_NO). 
The routine returns a 0 if 
a match is not found, a 1 if the second parameter matches, a 2 if the third 
parameter matches and so on. A check is made for null parameter entries in the 
parameter List although the index is still incremented. 
FORMAL PARAMETERS: 


cond_val.ric.r Adr. of desired value 
{cond_val_i.rle.r} Adr. of value to compare 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
index.wlu.v 
i, iy Ty Bem the ist and (i+1)th parameter 
SIDE EFFECTS: 


NONE 


¢ to by the second through nth parameter 
.° _FAC 


- ee ee ee eee 


'¢ 

: Check for a null parameter each iteration. : 

; If not a nul! parameter then compare the Ist and (i+1)th parameters 

: If no match is found by the time all parameters are exhausted then return a 0. 


; 149 1 

3; 1 1 

: 48) 0 19 

<<’ g 8 

; 154 1 

: 182 é 

7 $ 4 

; #158 5 

s 159 0226 

; 160 8 7 

3; «6161 & 

: 166 0229 

s 16 0230 

; 1646 0231 

: 165 0 ¢ 

3: 6166 0 

: 167 0234 

: 168 0235 

; 169 o¢36 

: 170 0237 

: 171 0238 

; Ze os78 

.) Sz 0240 

: 1746 0241 § 

: 175 pees 

: 176 0243 2 

. Sir 0244 1 
50 6C 


61 
04 BC 


DF 


ww 
Ww 
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! 4 01:07:45 AX-11 Bliss-32 V4.0-74 
14-Sep-1984 93:90:93 PTBRTL  SRETLTOMATON 3951 


BEGIN 
BUILTIN ACTUALCOUNT, ACTUALPARAMETER, NULLPARAMETER; 


IF .BLOCKC.COND_VAL, STSSV_FAC_SP; , BYTE] 
THEN ' Facility specific bit set 


BEGIN 
INCR I FROM 2 TO ACTUALCOUNT() DO 
i NOT NULLPARAMETER(.1) 


N 
IF .BLOCKC.COND_VAL, STSSV_COND_ID; , BYTE] EQLU .BLOCKCACTUALPARAMETER(.1), STS$V_COND_ID; 


RETURN .I = 1 
END 


ELSE ' Facility specific bit not set 
BEGIN 


INCR I FROM 2 TO ACTUALCOUNT() DO 
IF NOT NULLPARAMETER(.1) 


N 
IF .BLOCKC.COND_VAL, STSSV_MSG_NO; , BYTE] EQLU .BLOCKCACTUALPARAMETER(.1), STS$V_MSG_NO; , 


RETURN .I = 1 
END; 
RETURN 0 
END; 
-TITLE LIBSMATCH_COND Lsarary Match Condition Value Li 
.IDENT \1-003\ 
.PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
000¢ 00000 .ENTRY LIBSMATCH_COND, Save R2,R3 : 0166 
04 BC B 90002 TSTWw © @COND_VAL > 0220 
2B (18 9000 BGEQ : 
52 6C 9A 00007 MOVZBL (AP), R2 3; 0223 
50 01 00 OO0A MOVL #1, f : 
1D 11 D BRB : 
08 00 ED OO0F 1$: CMPZ7V #0, #8, (AP), I > 0224 
18 9 00014 BLSS ; 
604 D3 0016 TSTL = CAP) CI : 
11 13 00019 BEQL 28 : 
51 6C40 D0 0 1B MOVL (AP)CIJ, R1 > 0226 
19 03 EF OO01F EXT2V a3. #25. (R1), R3 : 
19 ED 00024 CMPZV #3, #25, @COND_VAL, R3 ; 
ay A BEQL 5$ é 
50 ‘ F ¢ 2$ AOBLEQ R2, I, 1$ : 0224 
11 BRB 7 : 0 $2 
52 6C 9A 0 é 3$ MOVZBL (AP), R2 : 0 
01 00 MOVL #1, f : 


5 
) 


7 
i 


| 


IBSMATCH_COND Library Match Condition Value List 18-se Sep-1984 745 AX-11 Bliss-32 V4.0-74 
1-008 . 1er35p- 1382 93:95:77 | Harte sae sctamateg.0$3,1 
4 11 8 6$ 
50 6C 08 6 Fp 3h 4$ CMPZV) «#0, #8, (AP), I 
1D F 6$ 
6C40 D 41 TSTL (AP) CII 
18 #1 44 BEQL 6$ 
51 6C40 D pee MOVL (AP)CII, 
53 4 04 BS AD QO04A XORW3 BONO Vit, Vea, R3 
FFF8 = BF 63 O04F BITW 
08 12 00054 BNEQ 
51 FF AO oF B826 5$ MOVAB <=-1(RO), R 
50 51 DO OO05A MOVL R1, RO 
04 Spee RET 
D8 50 26 F3 000 3 gs: AOBLEQ Ree I, 4$ 
5 D4 00062 7$: CLRL R 
04 00064 RET 
; Routine Size: 101 bytes, Routine Base: _LIBSCODE + 0000 
s 178 0245 1 END 
; «179 0246 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_LIBSCODE 101 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
ae ae te Sh anne Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped ime 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 3 0 581 00:00.7 
3 ~$255$DUA28:CLIBRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 


3; Size 
f pin "Tees 


COMMAND QUALIFIERS 


= tear cee as agen ge septicemia apeestepy saetare MSRC$:LIBMATCH/UPDATE=(ENHS$:LIBMATCH) 


lapsed Time: 0:18. 


1 foge + 0 data bytes 


,IBRRATCH. COND Library Match Condition Value List 


3 Lines/CPU Min: rhe 
; Lexemes/CPU-Min: 1441 
3 Y Uyeds 58 pages 
; Compilation Complete 


1b-sep-1984 01:07:45 
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